Software of the Month Club 1996 September/Software of the Month Club 1996 September.iso/mac/Software Research Institute-SRI/Business/Alpha ƒ/Tcl/SystemCode/finder.tcl

Text File | 1996-01-06 | 233 b | 15 lines | [TEXT/ALFA]

# Send open folder event to Finder. Name must end in colon.
proc openFolder {name} {
    if {![regexp ".*:$" $name]} {
        append name ":"
    }
    sendOpenEvent -r Finder $name
}


proc titlebar {name} {
    switchTo Finder
    openFolder $name
}